function NPC_OnCombat(pUnit, event)
pUnit:RegisterEvent("NPC_onCombat", 3183, 0)
pUnit:RegisterEvent("Immolate", 4000, 0)
pUnit:RegisterEvent("Corruption", 6000, 0)
end


function NPC_ON_KILL_TARGET(pUnit, event)
pUnit:RemoveEvents()
end

function Fireball(pUnit, event)
pUnit:FullCastSpellOnTarget(348, GetMainTank())
end

function Corruption(pUnit, event)
pUnit:FullCastSpellOnTarget(172, GetMainTank())
end

function NPC_OnDied(pUnit, event)
pUnit:RemoveEvents()
end


RegisterUnitEvent(3183, 1, "NPC_OnCombat")
RegisterUnitEvent(3183, 4, "NPC_OnDied")
RegisterUnitEvent(3183, 3, "NPC_OnDied")